home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / src / emacs / patches.z / patches
Encoding:
Text File  |  1998-10-28  |  63.5 KB  |  2,093 lines
  1. *** ./etc/ctags.1    Fri Jul 17 12:58:29 1992
  2. --- ../emacs-19.34/./etc/ctags.1    Fri May 15 12:03:09 1998
  3. ***************
  4. *** 1 ****
  5. ! .so man1/etags.1
  6. --- 1 ----
  7. ! .so etags.1
  8. *** ./etc/gnuserv.1    Thu May 21 11:32:03 1998
  9. --- ../emacs-19.34/./etc/gnuserv.1    Fri May 15 14:18:35 1998
  10. ***************
  11. *** 0 ****
  12. --- 1,132 ----
  13. + .TH GNUSERV 1 "" "GNU Emacs Server"
  14. + .UC 4
  15. + .SH NAME
  16. + gnuserv, gnuclient, gnudoit \- Server and Clients for GNU Emacs
  17. + .SH SYNOPSIS
  18. + .B gnuclient
  19. + [-q] [[-h hostname] [-p port] [-r pathname]] [[+line] path] ...
  20. + .br
  21. + .B gnudoit 
  22. + [-q] [[-h hostname] [-p port]] [sexpr] ...
  23. + .br
  24. + .B gnuserv
  25. + .SH DESCRIPTION
  26. + \fIgnuclient\fP allows the user to request a running GNU Emacs process to edit
  27. + the named files or directories.
  28. + .PP
  29. + \fIgnudoit\fP allows the user to request a running GNU Emacs process to
  30. + evaluate the given arguments inside a progn LISP form.
  31. + .PP
  32. + \fIgnuserv\fP is the server program that is set running by GNU Emacs to handle
  33. + all incoming and outgoing requests. It is not usually invoked directly, but is
  34. + started from GNU Emacs by the LISP form (server-start).
  35. + .SH OPTIONS
  36. + .TP 8
  37. + .BI \-q
  38. + This option informs both \fIgnuclient\fP and \fIgnudoit\fP to exit once
  39. + connection has been made with the GNU Emacs process. Normally \fIgnuclient\fP
  40. + waits until all of the files on the command line have been finished with
  41. + (their buffers killed) by the GNU Emacs process, and \fIgnudoit\fP normally
  42. + waits around for evaluation of its arguments by the GNU Emacs process, and
  43. + prints the results or error conditions.
  44. + .TP 8
  45. + .BI \-h " hostname"
  46. + Used only with Internet-domain sockets, this option specifies the host machine
  47. + which should be running \fIgnuserv\fP.  If this option is not specified then
  48. + the value of the environment variable GNU_HOST is used if set, otherwise the
  49. + hostname of the machine running the program is used.
  50. + .br
  51. + Note that an internet address may be specified instead of a hostname which can
  52. + speed up connections to the server by quite a bit, especially if the client
  53. + machine is running YP.
  54. + .br
  55. + Note also that a hostname of \fBunix\fP can be used to specify that the connection
  56. + to the server should use a Unix-domain socket (if supported) rather than an
  57. + Internet-domain socket.
  58. + .TP 8
  59. + .BI \-p " port"
  60. + Used only with Internet-domain sockets, this option specifies the service port
  61. + used to communicate between server and clients. If this option is not
  62. + specified, then the value of the environment variable GNU_PORT is used, if
  63. + set, otherwise a service called ``gnuserv'' is looked up
  64. + in the services database. Finally, if no other value can be found for the
  65. + port, then a default port is used which is usually 21490 + uid.
  66. + .br
  67. + Note that since \fIgnuserv\fP doesn't allow command-line options, the port for
  68. + it will have to be specified via one of the alternative methods.
  69. + .TP 8
  70. + .BI \-r " pathname"
  71. + Used only with Internet-domain sockets, the pathname argument may be needed to
  72. + inform GNU Emacs how to reach the root directory of a remote machine.
  73. + \fIgnuclient\fP prepends this string to each path argument given. For example,
  74. + if you were trying to edit a file on a client machine called otter, whose root
  75. + directory was accessible from the server machine via the path /net/otter, then
  76. + this argument should be set to '/net/otter'. If this option is omitted, then
  77. + the value is taken from the environment variable GNU_NODE, if set, or the
  78. + empty string otherwise.
  79. + .br
  80. + Note that on hp9000/s300 and hp9000/s800, the pathname, if not specified by
  81. + the user, is guessed.
  82. + .TP 8
  83. + .BI "path"
  84. + This is the path of the file to be edited. If the file is a directory, then
  85. + the directory browsers dired or monkey are usually invoked instead.
  86. + .TP 8
  87. + .BI "sexpr"
  88. + This is part of a GNU Emacs LISP expression to evaluate. All the sexprs are
  89. + concatenated together and wrapped in a progn form before sending to GNU Emacs.
  90. + .PP
  91. + .SH SETUP
  92. + In order to use the programs, the file gnuserv.el can be copied into a
  93. + directory on your GNU Emacs load-path, and loaded into GNU Emacs by the GNU
  94. + Emacs LISP form (load "gnuserv"). The server can then be started by the GNU
  95. + Emacs LISP form (server-start).
  96. + .SH EXAMPLE
  97. + .TP 8
  98. + gnudoit -q '(mh-smail)'
  99. + .TP 8
  100. + gnuclient -h otter -r /net/otter /tmp/*
  101. + .SH SYSV IPC
  102. + SysV IPC is used to communicate between \fIgnuclient\fP, \fIgnudoit\fP and
  103. + \fIgnuserv\fP if the symbol SYSV_IPC is defined at the top of gnuserv.h. This
  104. + is incompatible with both Unix-domain and Internet-domain socket communication
  105. + as described below. A file called /tmp/gsrv??? is created as a key for the
  106. + message queue, and if removed will cause the communication between server and
  107. + client to fail until the server is restarted.
  108. + .SH UNIX-DOMAIN SOCKETS
  109. + A Unix-domain socket is used to communicate between \fIgnuclient\fP,
  110. + \fIgnudoit\fP and \fIgnuserv\fP if the symbol UNIX_DOMAIN_SOCKETS is defined
  111. + at the top of gnuserv.h.  A file called /tmp/gsrv??? is created for
  112. + communication and if deleted will cause communication between server and
  113. + client to fail.
  114. + .SH INTERNET-DOMAIN SOCKETS
  115. + Internet-domain sockets are used to communicate between \fIgnuclient\fP,
  116. + \fIgnudoit\fP and \fIgnuserv\fP if the symbol INTERNET_DOMAIN_SOCKETS is
  117. + defined at the top of gnuserv.h. Both Internet-domain and Unix-domain sockets
  118. + can be used at the same time.
  119. + .SH SECURITY
  120. + Using Internet-domain sockets, a more robust form of security is needed that
  121. + wasn't necessary with either Unix-domain sockets or SysV IPC.
  122. + .br
  123. + \fIgnuserv\fP performs a limited form of security at the machine level. By
  124. + default only connections from the host where the server is running will be
  125. + allowed. All other server connections will be rejected with a cryptic message
  126. + (which is displayed only by \fIgnudoit\fP). Alternatively, if the variable
  127. + GNU_SECURE can be found in \fIgnuserv\fP's environment, and it names a
  128. + readable filename, then this file is opened and assumed to be a list of hosts,
  129. + one per line, from which the server will allow requests. Note that a host may
  130. + be either a internet address, or a hostname. If this file contains a lot of
  131. + hostnames then the server may take quite a time to start up.
  132. + .SH KNOWN BUGS
  133. + If GNU Emacs attempts to send a string containing a newline character to
  134. + \fIgnuserv\fP, then \fIgnuserv\fP will die.
  135. + .SH FILES
  136. + .PP
  137. + .TP 8
  138. + .B /tmp/gsrv???
  139. + .TP 8
  140. + .B ~/.emacs
  141. + GNU Emacs customization file, see emacs(1).
  142. + .SH AUTHOR.
  143. + Andy Norman (ange@hplb.hpl.hp.com), based heavily upon etc/emacsclient.c,
  144. + etc/server.c and lisp/server.el from the GNU Emacs 18.52 distribution.
  145. *** ./src/m/iris4d.h    Tue Jul 23 14:28:12 1996
  146. --- ../emacs-19.34/./src/m/iris4d.h    Thu May 21 11:41:07 1998
  147. ***************
  148. *** 131,137 ****
  149.   
  150.   #undef LIBS_MACHINE
  151.   /* -lsun in case using Yellow Pages for passwords.  */
  152. ! #if defined(__GNUC__) && defined(_ABIN32)
  153.   #define LIBS_MACHINE
  154.   #else
  155.   #define LIBS_MACHINE -lmld
  156. --- 131,137 ----
  157.   
  158.   #undef LIBS_MACHINE
  159.   /* -lsun in case using Yellow Pages for passwords.  */
  160. ! #if defined(_ABIN32)
  161.   #define LIBS_MACHINE
  162.   #else
  163.   #define LIBS_MACHINE -lmld
  164. ***************
  165. *** 187,193 ****
  166. --- 187,197 ----
  167.      that we can't fix without breaking other machines.  */
  168.   #ifdef IRIX_FORCE_32_BITS
  169.   #ifdef THIS_IS_MAKEFILE
  170. + #ifdef _ABIN32
  171. + #define C_SWITCH_MACHINE -n32
  172. + #else
  173.   #define C_SWITCH_MACHINE -32
  174. + #endif
  175.   #endif
  176.   #endif
  177.   
  178. *** ./src/s/irix6-x.h    Thu May 21 11:32:03 1998
  179. --- ../emacs-19.34/./src/s/irix6-x.h    Thu May 21 11:42:19 1998
  180. ***************
  181. *** 0 ****
  182. --- 1,39 ----
  183. + #include "irix5-0.h"
  184. + 
  185. + /* Irix 6 prior to 6.2 tries to do 64 bits, but doesn't do it fully,
  186. +    so inhibit that.  */
  187. + /* #define IRIX_FORCE_32_BITS */
  188. + 
  189. + /* Define this for -n32, undef it for -o32 builds */
  190. + #define _ABIN32
  191. + 
  192. + #ifdef _ABIN32
  193. + # ifndef __GNUC__
  194. + #  define LD_SWITCH_SYSTEM -G0
  195. + #  undef  C_SWITCH_SYSTEM
  196. + #  define C_SWITCH_SYSTEM -xansi -G0
  197. + #  undef  C_DEBUG_SWITCH
  198. + # endif
  199. + # undef LOADLIBES
  200. + #else
  201. + # undef  C_SWITCH_SYSTEM
  202. + # define C_SWITCH_SYSTEM -mips2
  203. + # undef  C_DEBUG_SWITCH
  204. + # define C_DEBUG_SWITCH  -O2 -Olimit 3000
  205. + #endif
  206. + 
  207. + /* This macro definition, which we inherited from irix5-0.h,
  208. +    is needed in configure on Irix 5, but gets in the way there
  209. +    on Irix 6.  So get rid of it except in Makefile.in where we need it.  */
  210. + #ifndef THIS_IS_MAKEFILE
  211. + # undef C_SWITCH_SYSTEM
  212. + #endif
  213. + 
  214. + /* The only supported configuration of GCC under IRIX6.x produces
  215. +    n32 MIPS ABI binaries and also supports -g. */
  216. + #ifdef __GNUC__
  217. + # undef  C_DEBUG_SWITCH
  218. + # define C_DEBUG_SWITCH -g
  219. + #endif
  220. + 
  221. + #undef SA_RESTART
  222. *** ./src/s/irix5-0.h    Fri Jul 19 15:40:59 1996
  223. --- ../emacs-19.34/./src/s/irix5-0.h    Fri May 15 11:53:42 1998
  224. ***************
  225. *** 3,8 ****
  226. --- 3,11 ----
  227.   #define IRIX5
  228.   
  229.   /* We want BSD style signals. */
  230. + #ifdef _BSD_SIGNALS
  231. + #undef _BSD_SIGNALS
  232. + #endif
  233.   #define _BSD_SIGNALS
  234.   
  235.   #define SETPGRP_RELEASES_CTTY
  236. *** ./src/Makefile.in    Sat May 18 16:12:39 1996
  237. --- ../emacs-19.34/./src/Makefile.in    Fri May 15 10:42:41 1998
  238. ***************
  239. *** 734,740 ****
  240.   #ifdef HAVE_SHM
  241.       ./temacs -nl -batch -l loadup dump
  242.   #else /* ! defined (HAVE_SHM) */
  243. !     ./temacs -batch -l loadup dump
  244.   #endif /* ! defined (HAVE_SHM) */
  245.   #endif /* ! defined (CANNOT_DUMP) */
  246.   
  247. --- 734,740 ----
  248.   #ifdef HAVE_SHM
  249.       ./temacs -nl -batch -l loadup dump
  250.   #else /* ! defined (HAVE_SHM) */
  251. !     LD_LIBRARYN32_PATH=$(ROOT)/usr/lib32 ./temacs -batch -l loadup dump
  252.   #endif /* ! defined (HAVE_SHM) */
  253.   #endif /* ! defined (CANNOT_DUMP) */
  254.   
  255. *** ./lib-src/Makefile.in    Fri Jun 21 01:45:18 1996
  256. --- ../emacs-19.34/./lib-src/Makefile.in    Fri May 15 10:42:41 1998
  257. ***************
  258. *** 88,100 ****
  259.   
  260.   # Things that a user might actually run,
  261.   # which should be installed in bindir.
  262. ! INSTALLABLES = etags ctags emacsclient b2m
  263.   INSTALLABLE_SCRIPTS = rcs-checkin
  264.   
  265.   # Things that Emacs runs internally, or during the build process,
  266.   #  which should not be installed in bindir.
  267.   UTILITIES=  profile digest-doc \
  268. !     sorted-doc movemail cvtmail fakemail yow emacsserver hexl
  269.   
  270.   DONT_INSTALL= test-distrib make-docfile
  271.   
  272. --- 88,100 ----
  273.   
  274.   # Things that a user might actually run,
  275.   # which should be installed in bindir.
  276. ! INSTALLABLES = etags ctags emacsclient b2m gnuclient gnudoit
  277.   INSTALLABLE_SCRIPTS = rcs-checkin
  278.   
  279.   # Things that Emacs runs internally, or during the build process,
  280.   #  which should not be installed in bindir.
  281.   UTILITIES=  profile digest-doc \
  282. !     sorted-doc movemail cvtmail fakemail yow emacsserver hexl gnuserv
  283.   
  284.   DONT_INSTALL= test-distrib make-docfile
  285.   
  286. ***************
  287. *** 374,379 ****
  288. --- 374,394 ----
  289.   
  290.   emacsclient: ${srcdir}/emacsclient.c ../src/config.h
  291.       $(CC) ${ALL_CFLAGS} ${srcdir}/emacsclient.c $(LOADLIBES) -o emacsclient
  292. + 
  293. + 
  294. + /* ange's gnuserv stuff */
  295. + 
  296. + gnuclient: gnuserv.h gnuslib.o gnuclient.c ../src/config.h
  297. +     $(CC) -o gnuclient -I${srcdir}/../src ${ALL_CFLAGS} ${srcdir}/gnuclient.c gnuslib.o $(LOADLIBES)
  298. + 
  299. + gnuserv: gnuserv.h gnuslib.o gnuserv.c ../src/config.h
  300. +     $(CC) -o gnuserv -I${srcdir}/../src ${ALL_CFLAGS} ${srcdir}/gnuserv.c gnuslib.o $(LOADLIBES)
  301. + 
  302. + gnudoit: gnuserv.h gnuslib.o gnudoit.c ../src/config.h
  303. +     $(CC) -o gnudoit -I${srcdir}/../src ${ALL_CFLAGS} ${srcdir}/gnudoit.c gnuslib.o $(LOADLIBES)
  304. + 
  305. + gnuslib.o: gnuserv.h gnuslib.c ../src/config.h
  306. +     $(CC) -c -I${srcdir}/../src ${ALL_CFLAGS} ${srcdir}/gnuslib.c
  307.   
  308.   hexl: ${srcdir}/hexl.c
  309.       $(CC) ${ALL_CFLAGS} ${srcdir}/hexl.c $(LOADLIBES) -o hexl
  310. *** ./lib-src/gnuclient.c    Thu May 21 11:32:03 1998
  311. --- ../emacs-19.34/./lib-src/gnuclient.c    Fri May 15 10:38:26 1998
  312. ***************
  313. *** 0 ****
  314. --- 1,249 ----
  315. + /* -*-C-*-
  316. +  Client code to allow local and remote editing of files by GNU Emacs.
  317. + 
  318. +  This file is part of GNU Emacs. 
  319. + 
  320. +  Copying is permitted under those conditions described by the GNU
  321. +  General Public License.
  322. + 
  323. +  Copyright (C) 1989 Free Software Foundation, Inc.
  324. + 
  325. +  Author: Andy Norman (ange@hplb.hpl.hp.com), based on 
  326. +          'etc/emacsclient.c' from the GNU Emacs 18.52 distribution.
  327. + 
  328. +  Please mail bugs and suggestions to the author at the above address.
  329. + */
  330. + 
  331. + static char rcsid [] = "$Header: gnuclient.c,v 1.8 89/07/24 12:46:46 ange Exp $";
  332. + 
  333. + #include "gnuserv.h"
  334. + 
  335. + #if !defined(SYSV_IPC) && !defined(UNIX_DOMAIN_SOCKETS) && !defined(INTERNET_DOMAIN_SOCKETS)
  336. + main ()
  337. + {
  338. +   fprintf (stderr,"Sorry, the Emacs server is only supported on systems that have\n");
  339. +   fprintf (stderr,"Unix Domain sockets, Internet Domain sockets or System V IPC.\n");
  340. +   exit (1);
  341. + } /* main */
  342. + #else /* SYSV_IPC || UNIX_DOMAIN_SOCKETS || INTERNET_DOMAIN_SOCKETS */
  343. + 
  344. + static char cwd[MAXPATHLEN+2];            /* current working directory when calculated */
  345. + static char *cp = NULL;                /* ptr into valid bit of cwd above */
  346. + 
  347. + 
  348. + /*
  349. +   get_current_working_directory -- return the cwd.
  350. + */
  351. + char *get_current_working_directory()
  352. + {
  353. +   if (cp == NULL) {                /* haven't calculated it yet */
  354. + #ifdef BSD
  355. +     if (getwd(cwd) == 0) {
  356. + #else /* !BSD */
  357. +     if (getcwd(cwd,MAXPATHLEN) == NULL) {
  358. + #endif /* !BSD */
  359. +       perror(progname);
  360. +       fprintf(stderr,"%s: unable to get current working directory\n",progname);
  361. +       exit(1);
  362. +     }; /* if */
  363. +     
  364. +     /* on some systems, cwd can look like '@machine/' ... */
  365. +     /* ignore everything before the first '/' */
  366. +     for (cp = cwd; *cp && *cp != '/'; ++cp)
  367. +       ;                           
  368. + 
  369. +   }; /* if */
  370. + 
  371. +   return cp;
  372. +     
  373. + } /* get_current_working_directory */
  374. + 
  375. + 
  376. + /*
  377. +   filename_expand -- try to convert the given filename into a fully-qualified
  378. +                pathname.
  379. + */
  380. + void filename_expand(fullpath,filename)
  381. +      char *fullpath;                /* returned full pathname */
  382. +      char *filename;                /* filename to expand */
  383. + {
  384. +   int len;
  385. + 
  386. +   fullpath[0] = '\0';
  387. +   
  388. +   if(filename[0] && filename[0] != '/') {    /* relative filename */
  389. +     
  390. +     strcat(fullpath,get_current_working_directory());
  391. +     len = strlen(fullpath);
  392. +      
  393. +     if (len > 0 && fullpath[len-1] == '/')    /* trailing slash already? */
  394. +       ;                        /* yep */
  395. +     else
  396. +       strcat(fullpath,"/");            /* nope, append trailing slash */
  397. +   }; /* if */
  398. + 
  399. +   strcat(fullpath,filename);
  400. + 
  401. + } /* filename_expand */
  402. + 
  403. + 
  404. + main(argc,argv)
  405. +      int argc;
  406. +      char *argv[];
  407. + {
  408. +   int starting_line = 1;            /* line to start editing at */
  409. +   char command[MAXPATHLEN+50];            /* emacs command buffer */
  410. +   char fullpath[MAXPATHLEN+1];            /* full pathname to file */
  411. +   int qflg = 0;                    /* quick edit, don't wait for user to finish */
  412. +   int errflg = 0;                /* option error */
  413. +   int c;                    /* char from getopt */
  414. +   int s;                    /* socket / msqid to server */
  415. + #ifdef INTERNET_DOMAIN_SOCKETS
  416. +   char thishost[HOSTNAMSZ];            /* this hostname */
  417. +   char remotehost[HOSTNAMSZ];            /* remote hostname */
  418. +   char remotepath[MAXPATHLEN+1];        /* remote pathname */
  419. +   int hflg = 0;                    /* hostname given on command line */
  420. +   int rflg = 0;                    /* pathname given on command line */
  421. +   u_short port = 0;                /* port to server */
  422. +   char *ptr;                    /* return from getenv */
  423. + #endif /* INTERNET_DOMAIN_SOCKETS */
  424. + #ifdef SYSV_IPC
  425. +   struct msgbuf *msgp;                /* message */
  426. + #endif /* SYSV_IPC */
  427. + 
  428. +   progname = argv[0];
  429. + 
  430. +   while ((c = getopt(argc, argv,
  431. + 
  432. + #ifdef INTERNET_DOMAIN_SOCKETS
  433. +              "h:p:r:q"
  434. + #else /* !INTERNET_DOMAIN_SOCKETS */
  435. +              "q"
  436. + #endif /* !INTERNET_DOMAIN_SOCKETS */
  437. + 
  438. +              )) != EOF)
  439. +     switch (c) {
  440. +     case 'q':                    /* quick mode specified */
  441. +       qflg++;
  442. +       break;
  443. + 
  444. + #ifdef INTERNET_DOMAIN_SOCKETS
  445. +     case 'h':                    /* server host name specified */
  446. +       strcpy(remotehost,optarg);
  447. +       hflg++;
  448. +       break;
  449. +     case 'r':                    /* remote path from server specifed */
  450. +       strcpy(remotepath,optarg);
  451. +       rflg++;
  452. +       break;
  453. +     case 'p':                    /* port number specified */
  454. +       port = atoi(optarg);
  455. +       break;
  456. + #endif /* INTERNET_DOMAIN_SOCKETS */
  457. + 
  458. +     case '?':
  459. +       errflg++;
  460. +     }; /* switch */
  461. + 
  462. +   if (errflg) {
  463. +     fprintf(stderr,
  464. + #ifdef INTERNET_DOMAIN_SOCKETS
  465. +         "usage: %s [-q] [-h hostname] [-p port] [-r pathname] [[+line] path] ...\n",
  466. + #else /* !INTERNET_DOMAIN_SOCKETS */
  467. +         "usage: %s [-q] [[+line] path] ...\n",
  468. + #endif /* !INTERNET_DOMAIN_SOCKETS */
  469. +         progname);
  470. +     exit (1);
  471. +   }; /* if */
  472. + 
  473. + #ifdef INTERNET_DOMAIN_SOCKETS
  474. +   gethostname(thishost,HOSTNAMSZ);
  475. + 
  476. +   if (!hflg) {                    /* attempt to find the server host */
  477. +     if((ptr=getenv("GNU_HOST")) != NULL)    /* user specified a host */
  478. +       strcpy(remotehost,ptr);
  479. +     else                    /* use this host by default */
  480. +       strcpy(remotehost,thishost);
  481. +   }; /* if */
  482. + 
  483. +   if(!rflg) {                    /* attempt to generate a path to this machine */
  484. +     if((ptr=getenv("GNU_NODE")) != NULL)    /* user specified a path */
  485. +       strcpy(remotepath,ptr);
  486. + 
  487. + #if defined(hp9000s300) || defined(hp9000s800)
  488. +     else if (strcmp(thishost,remotehost)) {    /* try /net/thishost */
  489. +       strcpy(remotepath,"/net/");         /* (this fails using internet addresses) */
  490. +       strcat(remotepath,thishost);
  491. +     }
  492. + #endif
  493. + 
  494. +     else                    /* same machines, no need for path */
  495. +       remotepath[0] = '\0';            /* default is the empty path */
  496. +   }; /* if */
  497. + 
  498. +   if (port == 0 && (ptr=getenv("GNU_PORT")) != NULL)
  499. +     port = atoi(ptr);
  500. + 
  501. + #ifdef UNIX_DOMAIN_SOCKETS
  502. +   if (!strcmp(remotehost,"unix"))
  503. +     s = connect_to_unix_server();
  504. +   else
  505. + #endif /* UNIX_DOMAIN_SOCKETS */
  506. +     s = connect_to_internet_server(remotehost,port);
  507. + #else  /* !INTERNET_DOMAIN_SOCKETS */
  508. + 
  509. + #ifdef UNIX_DOMAIN_SOCKETS
  510. +   s = connect_to_unix_server();
  511. + #endif /* UNIX_DOMAIN_SOCKETS */
  512. + 
  513. + #ifdef SYSV_IPC
  514. +   if ((msgp = (struct msgbuf *) malloc(sizeof *msgp + BUFSIZ)) == NULL) {
  515. +     fprintf(stderr,"%s: not enough memory for message buffer\n",progname);
  516. +     exit(1);
  517. +   }; /* if */
  518. + 
  519. +   msgp->mtext[0] = '\0';            /* ready for later strcats */
  520. +   s = connect_to_ipc_server();
  521. + #endif /* SYSV_IPC */
  522. + 
  523. + #endif /* !INTERNET_DOMAIN_SOCKETS */
  524. + 
  525. +   if (qflg) {
  526. +     send_string(s,"(server-edit-files-quickly '(");
  527. +   }
  528. +   else {
  529. +     send_string(s,"(server-edit-files '(");
  530. +   };
  531. + 
  532. +   for (; optind < argc; optind++) {
  533. +     if (*argv[optind] == '+')
  534. +       starting_line = atoi(argv[optind]);
  535. +     else {
  536. + 
  537. +       filename_expand(fullpath,argv[optind]);
  538. +       sprintf(command,"(%d . \"%s%s\")",starting_line,
  539. + 
  540. + #ifdef INTERNET_DOMAIN_SOCKETS
  541. +           remotepath,
  542. + #else /* !INTERNET_DOMAIN_SOCKETS */
  543. +           "",
  544. + #endif
  545. +           fullpath);
  546. +       send_string(s,command);
  547. +       starting_line = 1;
  548. +     }; /* else */
  549. +   }; /* for */
  550. + 
  551. +   send_string(s,"))");
  552. + 
  553. + #ifdef SYSV_IPC
  554. +   disconnect_from_ipc_server(s,msgp,FALSE);
  555. + #else /* !SYSV_IPC */
  556. +   disconnect_from_server(s,FALSE);
  557. + #endif /* !SYSV_IPC */
  558. + 
  559. +   exit(0);
  560. + 
  561. + } /* main */
  562. + 
  563. + #endif /* SYSV_IPC || UNIX_DOMAIN_SOCKETS || INTERNET_DOMAIN_SOCKETS */
  564. *** ./lib-src/gnuserv.h    Thu May 21 11:32:03 1998
  565. --- ../emacs-19.34/./lib-src/gnuserv.h    Fri May 15 10:38:52 1998
  566. ***************
  567. *** 0 ****
  568. --- 1,102 ----
  569. + /* -*-C-*-
  570. +  Header file for the GNU Emacs server and client C code.
  571. + 
  572. +  This file is part of GNU Emacs.
  573. + 
  574. +  Copying is permitted under those conditions described by the GNU
  575. +  General Public License.
  576. + 
  577. +  Copyright (C) 1989 Free Software Foundation, Inc.
  578. + 
  579. +  Author: Andy Norman (ange@hplb.hpl.hp.com), based on 
  580. +          'etc/server.c' and 'etc/emacsclient.c' from the 18.52 GNU
  581. +          Emacs distribution.
  582. + 
  583. +  Please mail bugs and suggestions to the author at the above address.
  584. + */
  585. + 
  586. + static char header_rcsid [] = "$Header: gnuserv.h,v 1.9 90/01/31 10:37:41 ange Exp $";
  587. + 
  588. + #define NO_SHORTNAMES
  589. + 
  590. + #define PATCHLEVEL 2
  591. + 
  592. + #include "../src/config.h"
  593. + #undef read
  594. + #undef write
  595. + #undef open
  596. + #undef close
  597. + 
  598. + /* Define the communication method between server and clients */
  599. + 
  600. + #define INTERNET_DOMAIN_SOCKETS
  601. + #define UNIX_DOMAIN_SOCKETS
  602. + /* #define SYSV_IPC */
  603. + 
  604. + #if !defined(SYSV_IPC) && !defined(UNIX_DOMAIN_SOCKETS) && !defined(INTERNET_DOMAIN_SOCKETS)
  605. + 
  606. + #ifdef HAVE_SYSVIPC
  607. + #define SYSV_IPC        /* SYSV systems use SYSV IPC by default */
  608. + #endif /* HAVE_SYSVIPC */
  609. + 
  610. + #ifdef BSD
  611. + #define UNIX_DOMAIN_SOCKETS    /* BSD systems use Unix Domain sockets by default */
  612. + #endif /* BSD */
  613. + 
  614. + #endif /* No communication method pre-defined */
  615. + 
  616. + #include <sys/types.h>
  617. + #include <sys/param.h>
  618. + #include <stdio.h>
  619. + #include <signal.h>
  620. + 
  621. + #ifdef SYSV_IPC
  622. + #include <sys/ipc.h>
  623. + #include <sys/msg.h>
  624. + 
  625. + #define send_string(s,str) \
  626. +   if (strlen(msgp->mtext) + strlen(str) < BUFSIZ) \
  627. +      strcat(msgp->mtext,str); \
  628. +   else \
  629. +   { \
  630. +     fprintf(stderr,"%s: not enough message buffer space\n",progname); \
  631. +      exit(1); \
  632. +   } \
  633. + 
  634. + #endif /* SYSV_IPC */
  635. + 
  636. + #if defined(INTERNET_DOMAIN_SOCKETS) || defined(UNIX_DOMAIN_SOCKETS)
  637. + #include <sys/socket.h>
  638. + #endif /* INTERNET_DOMAIN_SOCKETS || UNIX_DOMAIN_SOCKETS */
  639. + 
  640. + #ifdef INTERNET_DOMAIN_SOCKETS
  641. + #include <netinet/in.h>
  642. + #include <netdb.h>
  643. + #define TABLE_SIZE 101        /* The number of entries in the hash table */
  644. + #define HASH(host) host        /* Rather simplistic hash function */
  645. + #define DEFAULT_PORT 21490    /* default port number to use */
  646. + #endif /* INTERNET_DOMAIN_SOCKETS */
  647. + 
  648. + #ifdef UNIX_DOMAIN_SOCKETS
  649. + #include <sys/un.h>
  650. + #endif /* UNIX_DOMAIN_SOCKETS */
  651. + 
  652. + #define HOSTNAMSZ 255        /* max size of a hostname */
  653. + #define REPLYSIZ 300        /* max size of reply from server to client */
  654. + #define FALSE 0
  655. + #define TRUE 1
  656. + 
  657. + extern char *getenv();
  658. + extern char *optarg;
  659. + extern int optind;
  660. + extern char *progname;
  661. + 
  662. + #ifndef BSD
  663. + extern char *getcwd();
  664. + #endif
  665. + 
  666. + #define max2(x,y) (((x) > (y)) ? (x) : (y))
  667. + 
  668. + #ifndef _NFILE            /* rough guess at maximum number of open files */
  669. + #define _NFILE 20
  670. + #endif
  671. *** ./lib-src/gnuserv.c    Thu May 21 11:32:03 1998
  672. --- ../emacs-19.34/./lib-src/gnuserv.c    Fri May 15 10:38:48 1998
  673. ***************
  674. *** 0 ****
  675. --- 1,542 ----
  676. + /* -*-C-*-
  677. +  Server code for handling requests from clients and forwarding them
  678. +  on to the GNU Emacs process.
  679. + 
  680. +  This file is part of GNU Emacs.
  681. + 
  682. +  Copying is permitted under those conditions described by the GNU
  683. +  General Public License.
  684. + 
  685. +  Copyright (C) 1989 Free Software Foundation, Inc.
  686. + 
  687. +  Author: Andy Norman (ange@hplb.hpl.hp.com), based on 'etc/server.c'
  688. +          from the 18.52 GNU Emacs distribution.
  689. + 
  690. +  Please mail bugs and suggestions to the author at the above address.
  691. + */
  692. + 
  693. + static char rcsid [] = "$Header: gnuserv.c,v 1.8 89/09/28 12:47:01 ange Exp $";
  694. + 
  695. + #include "gnuserv.h"
  696. + 
  697. + #if !defined(SYSV_IPC) && !defined(UNIX_DOMAIN_SOCKETS) && !defined(INTERNET_DOMAIN_SOCKETS)
  698. + main ()
  699. + {
  700. +   fprintf (stderr,"Sorry, the Emacs server is only supported on systems that have\n");
  701. +   fprintf (stderr,"Unix Domain sockets, Internet Domain sockets or System V IPC\n");
  702. +   exit (1);
  703. + } /* main */
  704. + #else /* SYSV_IPC || UNIX_DOMAIN_SOCKETS || INTERNET_DOMAIN_SOCKETS */
  705. + 
  706. + #ifdef SYSV_IPC
  707. + 
  708. + int ipc_qid = 0;        /* ipc message queue id */
  709. + int ipc_wpid = 0;        /* watchdog task pid */
  710. + 
  711. + 
  712. + /*
  713. +   ipc_exit -- clean up the queue id and queue, then kill the watchdog task
  714. +               if it exists. exit with the given status.
  715. + */
  716. + void ipc_exit(stat)
  717. +      int stat;
  718. + {
  719. +   msgctl(ipc_qid,IPC_RMID,0);
  720. +   
  721. +   if (ipc_wpid != 0)
  722. +     kill(ipc_wpid,SIGKILL);
  723. + 
  724. +   exit(stat);
  725. + } /* ipc_exit */
  726. + 
  727. + 
  728. + /*
  729. +   ipc_handle_signal -- catch the signal given and clean up.
  730. + */
  731. + void ipc_handle_signal(sig)
  732. +      int sig;
  733. + {
  734. +   ipc_exit(0);
  735. + } /* ipc_handle_signal */
  736. + 
  737. + 
  738. + /* 
  739. +   ipc_spawn_watchdog -- spawn a watchdog task to clean up the message queue should the
  740. +             server process die.
  741. + */
  742. + int ipc_spawn_watchdog()
  743. + {
  744. +   if ((ipc_wpid = fork()) == 0) { /* child process */
  745. +     int ppid = getppid();    /* parent's process id */
  746. + 
  747. +     setpgrp();            /* gnu kills process group on exit */
  748. +     
  749. +     while (1) {
  750. +       if (kill(ppid,0) < 0) {    /* ppid is no longer valid, parent may have died */
  751. +     ipc_exit(0);
  752. +       }; /* if */
  753. + 
  754. +       sleep(10);        /* have another go later */
  755. +     }; /* while */
  756. +   }; /* if */
  757. + 
  758. + } /* ipc_spawn_watchdog */
  759. + 
  760. + 
  761. + /*
  762. +   ipc_init -- initialize server, setting the global msqid that can be listened on.
  763. + */
  764. + void ipc_init(msgpp)
  765. +      struct msgbuf **msgpp;
  766. + {
  767. +   key_t key;            /* messge key */
  768. +   char buf[BUFSIZ];        /* pathname for key */
  769. +   int p;            /* child process id */
  770. + 
  771. +   sprintf(buf,"/tmp/gsrv%d",geteuid());
  772. +   creat(buf,0600);
  773. +   key = ftok(buf,1);
  774. + 
  775. +   if ((ipc_qid = msgget(key,0600|IPC_CREAT)) == -1) {
  776. +     perror(progname);
  777. +     fprintf(stderr,"%s: unable to create msg queue\n",progname);
  778. +     ipc_exit(1);
  779. +   }; /* if */
  780. + 
  781. +   ipc_spawn_watchdog();
  782. + 
  783. +   signal(SIGTERM,ipc_handle_signal);
  784. +   signal(SIGINT,ipc_handle_signal);
  785. + 
  786. +   if ((*msgpp = (struct msgbuf *) malloc(sizeof **msgpp + BUFSIZ)) == NULL) {
  787. +     fprintf(stderr,"%s: unable to allocate space for message buffer\n",progname);
  788. +     ipc_exit(1);
  789. +   }; /* if */
  790. + 
  791. + } /* ipc_init */
  792. + 
  793. + 
  794. + /*
  795. +   handle_ipc_request -- accept a request from a client, pass the request on
  796. +               to the GNU Emacs process, then wait for its reply and
  797. +             pass that on to the client.
  798. + */
  799. + void handle_ipc_request(msgp)
  800. +      struct msgbuf *msgp;    /* message buffer */
  801. + {
  802. +   struct msqid_ds msg_st;    /* message status */
  803. +   char buf[BUFSIZ];
  804. +   int len;            /* length of message / read */
  805. +   int junk;            /* junk value */
  806. + 
  807. +   if ((len = msgrcv(ipc_qid,msgp,BUFSIZ-1,1,0)) < 0) {
  808. +     perror(progname);
  809. +     fprintf(stderr,"%s: unable to receive\n",progname);
  810. +     ipc_exit(1);
  811. +   }; /* if */
  812. + 
  813. +   msgctl(ipc_qid,IPC_STAT,&msg_st);
  814. +   strncpy(buf,msgp->mtext,len);
  815. +   buf[len] = '\0';        /* terminate */
  816. +   
  817. +   printf("%d %s",ipc_qid,buf);
  818. +   fflush(stdout);
  819. + 
  820. +   if ((len = read(0,buf,BUFSIZ)) < 0) {
  821. +     perror(progname);
  822. +     fprintf(stderr,"%s: unable to read\n",progname);
  823. +     ipc_exit(1);
  824. +   }; /* if */
  825. +       
  826. +   /* parse the response from gnu */
  827. +   msgp->mtext[0] = '\0';
  828. +   sscanf(buf,"%d:%[^\n]\n",&junk,msgp->mtext);
  829. + 
  830. +   /* Send a response back to the client. */
  831. +   msgp->mtype = msg_st.msg_lspid;
  832. +   msgsnd(ipc_qid,msgp,strlen(msgp->mtext)+1,0);
  833. + 
  834. + } /* handle_ipc_request */
  835. + #endif /* SYSV_IPC */
  836. + 
  837. + 
  838. + #if defined(INTERNET_DOMAIN_SOCKETS) || defined(UNIX_DOMAIN_SOCKETS)
  839. + /*
  840. +   echo_request -- read request from a given socket descriptor, and send the information
  841. +                   to stdout (the gnu process).
  842. + */
  843. + void echo_request(s)
  844. + int s;                /* socket */
  845. + {
  846. +   char buf[BUFSIZ];
  847. +   int len;
  848. + 
  849. +   printf("%d ",s);
  850. +   
  851. +   /* read until we get a newline or no characters */
  852. +   while ((len = recv(s,buf,BUFSIZ,0)) > 0) {
  853. +     buf[len] = '\0';
  854. +     printf("%s",buf);
  855. + 
  856. +     if (buf[len-1] == '\n')
  857. +       break;            /* end of message */
  858. + 
  859. +   }; /* while */
  860. + 
  861. +   if (len < 0) {
  862. +     perror(progname);
  863. +     fprintf(stderr,"%s: unable to recv\n",progname);
  864. +     exit(1);
  865. +   }; /* if */
  866. +   
  867. + } /* echo_request */
  868. + 
  869. + 
  870. + /*
  871. +   handle_response -- accept a response from stdin (the gnu process) and pass the
  872. +                      information on to the relevant client.
  873. + */
  874. + void handle_response()
  875. + {
  876. +   char buf[BUFSIZ];
  877. +   char response[BUFSIZ];
  878. +   int s;
  879. +   int len;
  880. + 
  881. +   if ((len = read(0,buf,BUFSIZ)) < 0) {
  882. +     perror(progname);
  883. +     fprintf(stderr,"%s: unable to read\n",progname);
  884. +     exit(1);
  885. +   }; /* if */
  886. +       
  887. +   /* parse the response from gnu */
  888. +   response[0] = '\0';
  889. +   sscanf(buf,"%d:%[^\n]\n", &s, response);
  890. + 
  891. +   /* Send a response back to the client. */
  892. +   send_string(s,response);
  893. +   close(s);
  894. + 
  895. + } /* handle_response */
  896. + #endif /* INTERNET_DOMAIN_SOCKETS || UNIX_DOMAIN_SOCKETS */
  897. + 
  898. + 
  899. + #ifdef INTERNET_DOMAIN_SOCKETS
  900. + struct entry {
  901. +   u_long host_addr;
  902. +   struct entry *next;
  903. + };
  904. + 
  905. + struct entry *permitted_hosts[TABLE_SIZE];
  906. + 
  907. + 
  908. + /*
  909. +   permitted -- return whether a given host is allowed to connect to the server.
  910. + */
  911. + int permitted(host_addr)
  912. +      u_long host_addr;
  913. + {
  914. +   int key;
  915. +   struct entry *entry;
  916. +   
  917. +   /* First find the hash key */
  918. +   key = HASH(host_addr) % TABLE_SIZE;
  919. +   
  920. +   /* Now check the chain for that hash key */
  921. +   for(entry=permitted_hosts[key]; entry != NULL; entry=entry->next)
  922. +     if (host_addr == entry->host_addr) 
  923. +       return(TRUE);
  924. + 
  925. +   return(FALSE);
  926. + 
  927. + } /* permitted */
  928. + 
  929. + 
  930. + /* 
  931. +   add_host -- add the given host to the list of permitted hosts, provided it isn't
  932. +               already there.
  933. + */    
  934. + void add_host(host_addr)
  935. +      u_long host_addr;
  936. + {
  937. +   int key;
  938. +   struct entry *new_entry;
  939. +   
  940. +   if (!permitted(host_addr)) {
  941. +     if ((new_entry = (struct entry *) malloc(sizeof(struct entry))) == NULL) {
  942. +       fprintf(stderr,"%s: unable to malloc space for permitted host entry\n",
  943. +           progname);
  944. +       exit(1);
  945. +     }; /* if */
  946. + 
  947. +     new_entry->host_addr = host_addr;
  948. +     key = HASH(host_addr) % TABLE_SIZE;
  949. +     new_entry->next = permitted_hosts[key];
  950. +     permitted_hosts[key] = new_entry;
  951. +   }; /* if */
  952. + 
  953. + } /* add_host */
  954. + 
  955. + 
  956. + /*
  957. +   setup_table -- initialise the table of hosts allowed to contact the server. 
  958. +                  Put in the local machine, and, if a security file is specifed,
  959. +                  add each host that is named in the file.
  960. + */
  961. + void setup_table()
  962. + {
  963. +   FILE *host_file;
  964. +   char *file_name;
  965. +   char hostname[HOSTNAMSZ];
  966. +   u_long host_addr;
  967. +   int i;
  968. +   
  969. +   /* Make sure every entry is null */
  970. +   for (i=0; i<TABLE_SIZE; i++)
  971. +     permitted_hosts[i] = NULL;
  972. + 
  973. +   gethostname(hostname,HOSTNAMSZ);
  974. + 
  975. +   if ((host_addr = internet_addr(hostname)) == -1) {
  976. +     fprintf(stderr,"%s: unable to find %s in /etc/hosts or from YP", 
  977. +         progname,hostname);
  978. +     exit(1);
  979. +   }; /* if */
  980. + 
  981. +   add_host(host_addr);                    /* add local host */
  982. + 
  983. +   if (((file_name = getenv("GNU_SECURE")) != NULL &&    /* security file  */
  984. +        (host_file = fopen(file_name,"r")) != NULL)) {    /* opened ok */
  985. +     while ((fscanf(host_file,"%s",hostname) != EOF))    /* find a host */
  986. +       if ((host_addr = internet_addr(hostname)) != -1)    /* get its internet addr */
  987. +     add_host(host_addr);                /* add the addr */
  988. + 
  989. +     fclose(host_file);
  990. +   }; /* if */
  991. + 
  992. + } /* setup_table */
  993. + 
  994. + 
  995. + /*
  996. +   internet_init -- initialize server, returning an internet socket that can
  997. +                     be listened on.
  998. + */
  999. + int internet_init()
  1000. + {
  1001. +   int ls;            /* socket descriptor */
  1002. +   struct servent *sp;        /* pointer to service information */
  1003. +   struct sockaddr_in server;    /* for local socket address */
  1004. +   char *ptr;            /* ptr to return from getenv */
  1005. + 
  1006. +   setup_table();
  1007. + 
  1008. +   /* clear out address structure */
  1009. +   bzero((char *)&server,sizeof(struct sockaddr_in));
  1010. +   
  1011. +   /* Set up address structure for the listen socket. */
  1012. +   server.sin_family = AF_INET;
  1013. +   server.sin_addr.s_addr = INADDR_ANY;
  1014. + 
  1015. +   /* Find the information for the gnu server
  1016. +    * in order to get the needed port number.
  1017. +    */
  1018. +   if ((ptr=getenv("GNU_PORT")) != NULL)
  1019. +     server.sin_port = htons(atoi(ptr));
  1020. +   else if ((sp = getservbyname ("gnuserv", "tcp")) == NULL)
  1021. +     server.sin_port = htons(DEFAULT_PORT+getuid());
  1022. +   else
  1023. +     server.sin_port = sp->s_port;
  1024. +   
  1025. +   /* Create the listen socket. */
  1026. +   if ((ls = socket (AF_INET,SOCK_STREAM, 0)) == -1) {
  1027. +     perror(progname);
  1028. +     fprintf(stderr,"%s: unable to create socket\n",progname);
  1029. +     exit(1);
  1030. +   }; /* if */
  1031. +   
  1032. +   /* Bind the listen address to the socket. */
  1033. +   if (bind(ls,&server,sizeof(struct sockaddr_in)) == -1) {
  1034. +     perror(progname);
  1035. +     fprintf(stderr,"%s: unable to bind socket\n",progname);
  1036. +     exit(1);
  1037. +   }; /* if */
  1038. + 
  1039. +   /* Initiate the listen on the socket so remote users
  1040. +    * can connect. 
  1041. +    */
  1042. +   if (listen(ls,20) == -1) {
  1043. +     perror(progname);
  1044. +     fprintf(stderr,"%s: unable to listen\n",progname);
  1045. +     exit(1);
  1046. +   }; /* if */
  1047. + 
  1048. +   return(ls);
  1049. + 
  1050. + } /* internet_init */
  1051. + 
  1052. + 
  1053. + /*
  1054. +   handle_internet_request -- accept a request from a client and send the information
  1055. +                              to stdout (the gnu process).
  1056. + */
  1057. + void handle_internet_request(ls)
  1058. + int ls;                /* listen socket */
  1059. + {
  1060. +   int s;
  1061. +   int addrlen = sizeof(struct sockaddr_in);
  1062. +   struct sockaddr_in peer;    /* for peer socket address */
  1063. + 
  1064. +   bzero((char *)&peer,sizeof(struct sockaddr_in));
  1065. + 
  1066. +   if ((s = accept(ls,&peer,&addrlen)) == -1) {
  1067. +     perror(progname);
  1068. +     fprintf(stderr,"%s: unable to accept\n",progname);
  1069. +     exit(1);
  1070. +   }; /* if */
  1071. +     
  1072. +   /* Check that access is allowed - if not return crud to the client */
  1073. +   if (!permitted(peer.sin_addr.s_addr)) {
  1074. +     send_string(s,"gnudoit: Connection refused\ngnudoit: unable to connect to remote");
  1075. +     close(s);
  1076. +     return;
  1077. +   }; /* if */
  1078. + 
  1079. +   echo_request(s);
  1080. +   
  1081. + } /* handle_internet_request */
  1082. + #endif /* INTERNET_DOMAIN_SOCKETS */
  1083. + 
  1084. + 
  1085. + #ifdef UNIX_DOMAIN_SOCKETS
  1086. + /*
  1087. +   unix_init -- initialize server, returning an unix-domain socket that can
  1088. +                be listened on.
  1089. + */
  1090. + int unix_init()
  1091. + {
  1092. +   int ls;            /* socket descriptor */
  1093. +   struct sockaddr_un server;     /* unix socket address */
  1094. + 
  1095. +   if ((ls = socket(AF_UNIX,SOCK_STREAM, 0)) < 0) {
  1096. +     perror(progname);
  1097. +     fprintf(stderr,"%s: unable to create socket\n",progname);
  1098. +     exit(1);
  1099. +   }; /* if */
  1100. + 
  1101. +   /* Set up address structure for the listen socket. */
  1102. +   sprintf(server.sun_path,"/tmp/gsrv%d",geteuid());
  1103. +   unlink(server.sun_path);    /* remove old file if it exists */
  1104. + 
  1105. +   server.sun_family = AF_UNIX;
  1106. +  
  1107. +   if (bind(ls,&server,strlen(server.sun_path)+2) < 0) {
  1108. +     perror(progname);
  1109. +     fprintf(stderr,"%s: unable to bind socket\n",progname);
  1110. +     exit(1);
  1111. +   }; /* if */
  1112. + 
  1113. +   chmod(server.sun_path,0700);    /* only this user can send commands */
  1114. + 
  1115. +   if (listen(ls,20) < 0) {
  1116. +     perror(progname);
  1117. +     fprintf(stderr,"%s: unable to listen\n",progname);
  1118. +     exit(1);
  1119. +   }; /* if */
  1120. + 
  1121. +   signal(SIGPIPE,SIG_IGN);    /* in case user kills client */
  1122. + 
  1123. +   return(ls);
  1124. + 
  1125. + } /* unix_init */
  1126. + 
  1127. + 
  1128. + /*
  1129. +   handle_unix_request -- accept a request from a client and send the information
  1130. +                          to stdout (the gnu process).
  1131. + */
  1132. + void handle_unix_request(ls)
  1133. + int ls;                /* listen socket */
  1134. + {
  1135. +   int s;
  1136. +   int len = sizeof(struct sockaddr_un);
  1137. +   struct sockaddr_un server;     /* for unix socket address */
  1138. + 
  1139. +   server.sun_family = AF_UNIX;
  1140. + 
  1141. +   if ((s = accept(ls,&server,&len)) < 0) {
  1142. +     perror(progname);
  1143. +     fprintf(stderr,"%s: unable to accept\n",progname);
  1144. +   }; /* if */
  1145. + 
  1146. +   echo_request(s);
  1147. +   
  1148. + } /* handle_unix_request */
  1149. + #endif /* UNIX_DOMAIN_SOCKETS */
  1150. + 
  1151. + 
  1152. + main(argc,argv)
  1153. +      int argc;
  1154. +      char *argv[];
  1155. + {
  1156. +   int ils = -1;            /* internet domain listen socket */
  1157. +   int uls = -1;            /* unix domain listen socket */
  1158. +   int chan;            /* temporary channel number */
  1159. + #ifdef SYSV_IPC
  1160. +   struct msgbuf *msgp;        /* message buffer */
  1161. + #endif /* SYSV_IPC */
  1162. + 
  1163. +   progname = argv[0];
  1164. + 
  1165. +   for(chan=3; chan < _NFILE; close(chan++)) /* close unwanted channels */
  1166. +     ;
  1167. + 
  1168. + #ifdef SYSV_IPC
  1169. +   ipc_init(&msgp);        /* get a msqid to listen on, and a message buffer */
  1170. + #endif /* SYSV_IPC */
  1171. + 
  1172. + #ifdef INTERNET_DOMAIN_SOCKETS
  1173. +   ils = internet_init();    /* get a internet domain socket to listen on */
  1174. + #endif /* INTERNET_DOMAIN_SOCKETS */
  1175. + 
  1176. + #ifdef UNIX_DOMAIN_SOCKETS
  1177. +   uls = unix_init();        /* get a unix domain socket to listen on */
  1178. + #endif /* UNIX_DOMAIN_SOCKETS */
  1179. + 
  1180. +   while (1) {
  1181. + #ifdef SYSV_IPC
  1182. +     handle_ipc_request(msgp);
  1183. + #else /* NOT SYSV_IPC */
  1184. +     int rmask = 1 
  1185. + #ifdef UNIX_DOMAIN_SOCKETS
  1186. +       + (1 << uls) 
  1187. + #endif /* UNIX_DOMAIN_SOCKETS */
  1188. + 
  1189. + #ifdef INTERNET_DOMAIN_SOCKETS
  1190. +       + (1 << ils)
  1191. + #endif /* INTERNET_DOMAIN_SOCKETS */
  1192. +       ;
  1193. +     
  1194. +     if (select(max2(uls,ils) + 1,&rmask,0,0,0) < 0) {
  1195. +       perror(progname);
  1196. +       fprintf(stderr,"%s: unable to select\n",progname);
  1197. +       exit(1);
  1198. +     }; /* if */
  1199. + 
  1200. + #ifdef UNIX_DOMAIN_SOCKETS    
  1201. +     if (rmask & (1 << uls))    /* from unix domain socket (client process) */
  1202. +       handle_unix_request(uls);
  1203. + #endif /* UNIX_DOMAIN_SOCKETS */
  1204. + 
  1205. + #ifdef INTERNET_DOMAIN_SOCKETS
  1206. +     if (rmask & (1 << ils))    /* from internet domain socket (client process) */
  1207. +       handle_internet_request(ils);
  1208. + #endif /* INTERNET_DOMAIN_SOCKETS */
  1209. + 
  1210. +     if (rmask & 1)         /* from stdin (gnu process) */
  1211. +       handle_response();
  1212. + #endif /* NOT SYSV_IPC */
  1213. +   }; /* while */
  1214. + 
  1215. + } /* main */
  1216. + 
  1217. + #endif /* SYSV_IPC || UNIX_DOMAIN_SOCKETS || INTERNET_DOMAIN_SOCKETS */
  1218. *** ./lib-src/gnudoit.c    Thu May 21 11:32:03 1998
  1219. --- ../emacs-19.34/./lib-src/gnudoit.c    Fri May 15 10:38:38 1998
  1220. ***************
  1221. *** 0 ****
  1222. --- 1,139 ----
  1223. + /* -*-C-*-
  1224. +  Client code to locally and remotely evaluate lisp forms using GNU Emacs.
  1225. + 
  1226. +  This file is part of GNU Emacs.
  1227. + 
  1228. +  Copying is permitted under those conditions described by the GNU
  1229. +  General Public License.
  1230. + 
  1231. +  Copyright (C) 1989 Free Software Foundation, Inc.
  1232. + 
  1233. +  Author: Andy Norman (ange@hplb.hpl.hp.com).
  1234. + 
  1235. +  Please mail bugs and suggestions to the author at the above address.
  1236. + */
  1237. + 
  1238. + static char rcsid [] = "$Header: gnudoit.c,v 1.5 89/07/24 12:47:53 ange Exp $";
  1239. + 
  1240. + #include "gnuserv.h"
  1241. + 
  1242. + #if !defined(SYSV_IPC) && !defined(UNIX_DOMAIN_SOCKETS) && !defined(INTERNET_DOMAIN_SOCKETS)
  1243. + main ()
  1244. + {
  1245. +   fprintf (stderr,"Sorry, the Emacs server is only supported on systems that have\n");
  1246. +   fprintf (stderr,"Unix Domain sockets, Internet Domain sockets or System V IPC.\n");
  1247. +   exit (1);
  1248. + } /* main */
  1249. + #else /* SYSV_IPC || UNIX_DOMAIN_SOCKETS || INTERNET_DOMAIN_SOCKETS */
  1250. + 
  1251. + main(argc,argv)
  1252. +      int argc;
  1253. +      char *argv[];
  1254. + {
  1255. +   int starting_line = 1;            /* line to start editing at */
  1256. +   int qflg = 0;                    /* don't wait around for gnu emacs to eval cmd */
  1257. +   int errflg = 0;                /* option error */
  1258. +   int c;                    /* char from getopt */
  1259. +   int s;                    /* socket / msqid to server */
  1260. + #ifdef INTERNET_DOMAIN_SOCKETS
  1261. +   char remotehost[HOSTNAMSZ];            /* remote hostname */
  1262. +   int hflg = 0;                    /* hostname given on command line */
  1263. +   u_short port = 0;                /* port number */
  1264. +   char *ptr;                    /* return from getenv */
  1265. + #endif /* INTERNET_DOMAIN_SOCKETS */
  1266. + #ifdef SYSV_IPC
  1267. +   struct msgbuf *msgp;                /* message */
  1268. + #endif /* SYSV_IPC */
  1269. + 
  1270. +   progname = argv[0];
  1271. + 
  1272. +   while ((c = getopt(argc, argv,
  1273. + #ifdef INTERNET_DOMAIN_SOCKETS
  1274. +              "qh:p:"
  1275. + #else /* !INTERNET_DOMAIN_SOCKETS */
  1276. +              "q"
  1277. + #endif /* !INTERNET_DOMAIN_SOCKETS */
  1278. +              )) != EOF)
  1279. +     switch (c) {
  1280. + #ifdef INTERNET_DOMAIN_SOCKETS
  1281. +     case 'h':                    /* host name specified */
  1282. +       strcpy(remotehost,optarg);
  1283. +       hflg++;
  1284. +       break;
  1285. +     case 'p':                    /* port number specified */
  1286. +       port = atoi(optarg);
  1287. +       break;
  1288. + #endif /* INTERNET_DOMAIN_SOCKETS */
  1289. +     case 'q':                    /* quick mode specified */
  1290. +       qflg++;
  1291. +       break;
  1292. +     case '?':
  1293. +       errflg++;
  1294. +     }; /* switch */
  1295. + 
  1296. +   if (errflg) {
  1297. +     fprintf(stderr,
  1298. + #ifdef INTERNET_DOMAIN_SOCKETS
  1299. +         "usage: %s [-q] [-h hostname] [-p port] [sexpr]...\n",
  1300. + #else /* !INTERNET_DOMAIN_SOCKETS */
  1301. +         "usage: %s [-q] [sexpr]...\n",
  1302. + #endif /* !INTERNET_DOMAIN_SOCKETS */
  1303. +         progname);
  1304. +     exit (1);
  1305. +   }; /* if */
  1306. + 
  1307. + #ifdef INTERNET_DOMAIN_SOCKETS
  1308. +   if (!hflg) {
  1309. +     if((ptr=getenv("GNU_HOST")) != NULL)
  1310. +       strcpy(remotehost,ptr);
  1311. +     else
  1312. +       gethostname(remotehost,HOSTNAMSZ);    /* use this host by default */
  1313. +   }; /* if */
  1314. + 
  1315. +   if (port == 0 && (ptr=getenv("GNU_PORT")) != NULL)
  1316. +       port = atoi(ptr);
  1317. + 
  1318. + #ifdef UNIX_DOMAIN_SOCKETS
  1319. +   if (!strcmp(remotehost,"unix"))
  1320. +     s = connect_to_unix_server();
  1321. +   else
  1322. + #endif /* UNIX_DOMAIN_SOCKETS */
  1323. +     s = connect_to_internet_server(remotehost,port);
  1324. + #else /* !INTERNET_DOMAIN_SOCKETS */
  1325. + #ifdef UNIX_DOMAIN_SOCKETS
  1326. +   s = connect_to_unix_server();
  1327. + #endif /* UNIX_DOMAIN_SOCKETS */
  1328. + #ifdef SYSV_IPC
  1329. +   if ((msgp = (struct msgbuf *) malloc(sizeof *msgp + BUFSIZ)) == NULL) {
  1330. +     fprintf(stderr,"%s: not enough memory for message buffer\n",progname);
  1331. +     exit(1);
  1332. +   }; /* if */
  1333. + 
  1334. +   msgp->mtext[0] = '\0';            /* ready for later strcats */
  1335. +   s = connect_to_ipc_server();
  1336. + #endif /* SYSV_IPC */
  1337. + #endif /* !INTERNET_DOMAIN_SOCKETS */
  1338. + 
  1339. +   if (qflg) {
  1340. +     send_string(s,"(server-eval-quickly '(progn ");
  1341. +   }
  1342. +   else {
  1343. +     send_string(s,"(server-eval '(progn ");
  1344. +   };
  1345. + 
  1346. +   for (; optind < argc; optind++)
  1347. +     send_string(s,argv[optind]);
  1348. + 
  1349. +   send_string(s,"))");
  1350. + 
  1351. + #ifdef SYSV_IPC
  1352. +   disconnect_from_ipc_server(s,msgp,!qflg);
  1353. + #else /* !SYSV_IPC */
  1354. +   disconnect_from_server(s,!qflg);
  1355. + #endif /* !SYSV_IPC */
  1356. + 
  1357. +   exit(0);
  1358. + 
  1359. + } /* main */
  1360. + 
  1361. + #endif /* SYSV_IPC || UNIX_DOMAIN_SOCKETS || INTERNET_DOMAIN_SOCKETS */
  1362. *** ./lib-src/gnuslib.c    Thu May 21 11:32:03 1998
  1363. --- ../emacs-19.34/./lib-src/gnuslib.c    Fri May 15 10:39:05 1998
  1364. ***************
  1365. *** 0 ****
  1366. --- 1,247 ----
  1367. + /* -*-C-*-
  1368. +  Common library code for the GNU Emacs server and client.
  1369. + 
  1370. +  This file is part of GNU Emacs.
  1371. + 
  1372. +  Copying is permitted under those conditions described by the GNU
  1373. +  General Public License.
  1374. + 
  1375. +  Copyright (C) 1989 Free Software Foundation, Inc.
  1376. + 
  1377. +  Author: Andy Norman (ange@hplb.hpl.hp.com), based on 
  1378. +          'etc/server.c' and 'etc/emacsclient.c' from the 18.52 GNU
  1379. +          Emacs distribution.
  1380. + 
  1381. +  Please mail bugs and suggestions to the author at the above address.
  1382. + */
  1383. + 
  1384. + static char rcsid [] = "$Header: gnuslib.c,v 1.6 89/09/28 12:47:34 ange Exp $";
  1385. + 
  1386. + #include "gnuserv.h"
  1387. + 
  1388. + char *progname = NULL;
  1389. + 
  1390. + #ifdef SYSV_IPC
  1391. + /*
  1392. +   connect_to_ipc_server -- establish connection with server process via SYSV IPC
  1393. +                  Returns msqid for server if successful.
  1394. + */
  1395. + int connect_to_ipc_server()
  1396. + {
  1397. +   int s;            /* connected msqid */
  1398. +   key_t key;            /* message key */
  1399. +   char buf[BUFSIZ];        /* buffer for filename */
  1400. + 
  1401. +   sprintf(buf,"/tmp/gsrv%d",geteuid());
  1402. +   creat(buf,0600);
  1403. +   key = ftok(buf,1);
  1404. + 
  1405. +   if ((s = msgget(key,0600)) == -1) {
  1406. +     perror(progname);
  1407. +     fprintf(stderr,"%s: unable to access msg queue\n",progname);
  1408. +     exit(1);
  1409. +   }; /* if */
  1410. + 
  1411. +   return(s);
  1412. + 
  1413. + } /* connect_to_ipc_server */
  1414. + 
  1415. + 
  1416. + /*
  1417. +   disconnect_from_ipc_server -- inform the server that sending has finished,
  1418. +                                 and wait for its reply.
  1419. + */
  1420. + void disconnect_from_ipc_server(s,msgp,echo)
  1421. +      int s;
  1422. +      struct msgbuf *msgp;
  1423. +      int echo;
  1424. + {
  1425. +   int len;            /* length of received message */
  1426. + 
  1427. +   send_string(s,"\n");        /* newline terminates this message */
  1428. +   msgp->mtype = 1;
  1429. + 
  1430. +   if(msgsnd(s,msgp,strlen(msgp->mtext)+1,0) < 0) {
  1431. +     perror(progname);
  1432. +     fprintf(stderr,"%s: unable to send message to server\n",progname);
  1433. +     exit(1);
  1434. +   }; /* if */
  1435. +   
  1436. +   if((len = msgrcv(s,msgp,BUFSIZ,getpid(),0)) < 0) {
  1437. +     perror(progname);
  1438. +     fprintf(stderr,"%s: unable to receive message from server\n",progname);
  1439. +     exit(1);
  1440. +   }; /* if */
  1441. + 
  1442. +   if (echo) {
  1443. +     msgp->mtext[len] = '\0';    /* string terminate message */
  1444. +     printf("%s\n",msgp->mtext);
  1445. +   }; /* if */
  1446. + 
  1447. + } /* disconnect_from_ipc_server */  
  1448. + #endif SYSV_IPC
  1449. + 
  1450. + 
  1451. + #if defined(INTERNET_DOMAIN_SOCKETS) || defined(UNIX_DOMAIN_SOCKETS)
  1452. + /*
  1453. +   send_string -- send string to socket.
  1454. + */
  1455. + void send_string(s,msg)
  1456. +      int s;
  1457. +      char *msg;
  1458. + {
  1459. +   if (send(s,msg,strlen(msg),0) < 0) {
  1460. +     perror(progname);
  1461. +     fprintf(stderr,"%s: unable to send\n",progname);
  1462. +     exit(1);
  1463. +   }; /* if */ 
  1464. +   
  1465. + } /* send_string */
  1466. + #endif /* INTERNET_DOMAIN_SOCKETS || UNIX_DOMAIN_SOCKETS */
  1467. + 
  1468. + 
  1469. + #ifdef UNIX_DOMAIN_SOCKETS
  1470. + /*
  1471. +   connect_to_unix_server -- establish connection with server process via a unix-
  1472. +                   domain socket. Returns socket descriptor for server
  1473. +                 if successful.
  1474. + */
  1475. + int connect_to_unix_server()
  1476. + {
  1477. +   int s;            /* connected socket descriptor */
  1478. +   struct sockaddr_un server;     /* for unix connections */
  1479. + 
  1480. +   if ((s = socket(AF_UNIX,SOCK_STREAM,0)) < 0) {
  1481. +     perror(progname);
  1482. +     fprintf(stderr,"%s: unable to create socket\n",progname);
  1483. +     exit(1);
  1484. +   }; /* if */
  1485. +   
  1486. +   server.sun_family = AF_UNIX;
  1487. +   sprintf(server.sun_path,"/tmp/gsrv%d",geteuid());
  1488. + 
  1489. +   if (connect(s,&server,strlen(server.sun_path)+2) < 0) {
  1490. +     perror(progname);
  1491. +     fprintf(stderr,"%s: unable to connect to local\n",progname);
  1492. +     exit(1);
  1493. +   }; /* if */
  1494. + 
  1495. +   return(s);
  1496. + 
  1497. + } /* connect_to_unix_server */
  1498. + #endif /* UNIX_DOMAIN_SOCKETS */
  1499. + 
  1500. + 
  1501. + #ifdef INTERNET_DOMAIN_SOCKETS
  1502. + /*
  1503. +   internet_addr -- return the internet addr of the hostname or
  1504. +                    internet address passed. Return -1 on error.
  1505. + */
  1506. + u_long internet_addr(host)
  1507. +      char *host;
  1508. + {
  1509. +   struct hostent *hp;        /* pointer to host info for remote host */
  1510. +   u_long host_addr;        /* host address */
  1511. + 
  1512. +   if ((host_addr = inet_addr(host)) != -1)
  1513. +     return host_addr;
  1514. +   else if ((hp = gethostbyname(host)) != NULL)
  1515. +     return ((struct in_addr *)(hp->h_addr))->s_addr;
  1516. +   else
  1517. +     return -1;
  1518. + 
  1519. + } /* internet_addr */
  1520. + 
  1521. + 
  1522. + /*
  1523. +   connect_to_internet_server -- establish connection with server process via 
  1524. +                   an internet domain socket. Returns socket
  1525. +                 descriptor for server if successful.
  1526. + */
  1527. + int connect_to_internet_server(serverhost,port)
  1528. +      char *serverhost;
  1529. +      u_short port;
  1530. + {
  1531. +   int s;                /* connected socket descriptor */
  1532. +   struct servent *sp;            /* pointer to service information */
  1533. +   struct sockaddr_in peeraddr_in;    /* for peer socket address */
  1534. + 
  1535. +   /* clear out address structures */
  1536. +   bzero((char *)&peeraddr_in,sizeof(struct sockaddr_in));
  1537. +   
  1538. +   /* Set up the peer address to which we will connect. */
  1539. +   peeraddr_in.sin_family = AF_INET;
  1540. + 
  1541. +   /* look up the server host's internet address */
  1542. +   if ((peeraddr_in.sin_addr.s_addr = internet_addr(serverhost)) == -1) {
  1543. +     fprintf(stderr,"%s: unable to find %s in /etc/hosts or from YP\n",
  1544. +         progname,serverhost);
  1545. +     exit(1);
  1546. +   }; /* if */
  1547. +   
  1548. +   if (port == 0) {
  1549. +     if ((sp = getservbyname ("gnuserv","tcp")) == NULL)
  1550. +       peeraddr_in.sin_port = htons(DEFAULT_PORT+getuid());
  1551. +     else
  1552. +       peeraddr_in.sin_port = sp->s_port;
  1553. +   } /* if */
  1554. +   else
  1555. +     peeraddr_in.sin_port = htons(port);
  1556. +   
  1557. +   /* Create the socket. */
  1558. +   if ((s = socket (AF_INET,SOCK_STREAM, 0))== -1) {
  1559. +     perror(progname);
  1560. +     fprintf(stderr,"%s: unable to create socket\n",progname);
  1561. +     exit(1);
  1562. +   }; /* if */
  1563. +   
  1564. +   /* Try to connect to the remote server at the address
  1565. +    * which was just built into peeraddr.
  1566. +    */
  1567. +   if (connect(s, &peeraddr_in, sizeof(struct sockaddr_in)) == -1) {
  1568. +     perror(progname);
  1569. +     fprintf(stderr, "%s: unable to connect to remote\n",progname);
  1570. +     exit(1);
  1571. +   }; /* if */
  1572. +   
  1573. +   return(s);
  1574. + 
  1575. + } /* connect_to_internet_server */
  1576. + #endif /* INTERNET_DOMAIN_SOCKETS */
  1577. + 
  1578. + 
  1579. + #if defined(INTERNET_DOMAIN_SOCKETS) || defined(UNIX_DOMAIN_SOCKETS)
  1580. + /*
  1581. +   disconnect_from_server -- inform the server that sending has finished, and wait for
  1582. +                             its reply.
  1583. + */
  1584. + void disconnect_from_server(s,echo)
  1585. +      int s;
  1586. +      int echo;
  1587. + {
  1588. +   char buffer[REPLYSIZ];
  1589. +   int length;
  1590. + 
  1591. +   send_string(s,"\n");        /* make sure server gets string */
  1592. + 
  1593. +   if (shutdown(s,1) == -1) {
  1594. +     perror(progname);
  1595. +     fprintf(stderr, "%s: unable to shutdown socket\n",progname);
  1596. +     exit(1);
  1597. +   }; /* if */
  1598. + 
  1599. +   while((length = recv(s,buffer,REPLYSIZ,0)) > 0) {
  1600. +     buffer[length] = '\0';
  1601. +     if (echo) printf("%s",buffer);
  1602. +   }; /* while */
  1603. +   
  1604. +   if (echo) putchar('\n');
  1605. + 
  1606. +   if(length < 0) {
  1607. +     perror(progname);
  1608. +     fprintf(stderr,"%s: unable to read the reply from the server\n",progname);
  1609. +     exit(1);
  1610. +   }; /* if */
  1611. + 
  1612. + } /* disconnect_from_server */  
  1613. + #endif /* INTERNET_DOMAIN_SOCKETS || UNIX_DOMAIN_SOCKETS */
  1614. *** ./Makefile.in    Tue Aug 20 00:12:19 1996
  1615. --- ../emacs-19.34/./Makefile.in    Fri May 15 10:42:41 1998
  1616. ***************
  1617. *** 253,264 ****
  1618.   .RECURSIVE: ${SUBDIR}
  1619.   
  1620.   ${SUBDIR}: ${SUBDIR_MAKEFILES} FRC
  1621. !     cd $@; $(MAKE) all $(MFLAGS) \
  1622.         CC='${CC}' CFLAGS='${CFLAGS}' CPPFLAGS='${CPPFLAGS}' \
  1623.         LDFLAGS='${LDFLAGS}' MAKE='${MAKE}'
  1624.   
  1625.   blessmail: ${SUBDIR_MAKEFILES} src FRC
  1626. !     cd lib-src; $(MAKE) maybe-blessmail $(MFLAGS) \
  1627.         MAKE='${MAKE}' archlibdir='$(archlibdir)'
  1628.   
  1629.   Makefile: Makefile.in config.status
  1630. --- 253,264 ----
  1631.   .RECURSIVE: ${SUBDIR}
  1632.   
  1633.   ${SUBDIR}: ${SUBDIR_MAKEFILES} FRC
  1634. !     cd $@; $(MAKE) $(MFLAGS) all \
  1635.         CC='${CC}' CFLAGS='${CFLAGS}' CPPFLAGS='${CPPFLAGS}' \
  1636.         LDFLAGS='${LDFLAGS}' MAKE='${MAKE}'
  1637.   
  1638.   blessmail: ${SUBDIR_MAKEFILES} src FRC
  1639. !     cd lib-src; $(MAKE) $(MFLAGS) maybe-blessmail \
  1640.         MAKE='${MAKE}' archlibdir='$(archlibdir)'
  1641.   
  1642.   Makefile: Makefile.in config.status
  1643. ***************
  1644. *** 304,310 ****
  1645.   ### to ensure that install-arch-indep finishes before this starts.
  1646.   install-arch-dep: mkdir
  1647.       (cd lib-src; \
  1648. !       $(MAKE) install $(MFLAGS) prefix=${prefix} \
  1649.           exec_prefix=${exec_prefix} bindir=${bindir} \
  1650.           libexecdir=${libexecdir} archlibdir=${archlibdir})
  1651.       ${INSTALL_PROGRAM} src/emacs ${bindir}/emacs-${version}
  1652. --- 304,310 ----
  1653.   ### to ensure that install-arch-indep finishes before this starts.
  1654.   install-arch-dep: mkdir
  1655.       (cd lib-src; \
  1656. !       $(MAKE) $(MFLAGS) install prefix=${prefix} \
  1657.           exec_prefix=${exec_prefix} bindir=${bindir} \
  1658.           libexecdir=${libexecdir} archlibdir=${archlibdir})
  1659.       ${INSTALL_PROGRAM} src/emacs ${bindir}/emacs-${version}
  1660. ***************
  1661. *** 471,479 ****
  1662.   ###      `make distclean' should leave only the files that were in the
  1663.   ###      distribution.
  1664.   top_distclean=\
  1665. !     rm -f config.status config.cache config.log ; \
  1666.       rm -f Makefile ${SUBDIR_MAKEFILES} ; \
  1667. !     (cd lock && (rm * || true))
  1668.   distclean: FRC
  1669.       (cd src;      $(MAKE) $(MFLAGS) distclean)
  1670.       (cd oldXMenu; $(MAKE) $(MFLAGS) distclean)
  1671. --- 471,479 ----
  1672.   ###      `make distclean' should leave only the files that were in the
  1673.   ###      distribution.
  1674.   top_distclean=\
  1675. !     -rm -f config.status config.cache config.log ; \
  1676.       rm -f Makefile ${SUBDIR_MAKEFILES} ; \
  1677. !     (test -d lock && cd lock && (rm * || true))
  1678.   distclean: FRC
  1679.       (cd src;      $(MAKE) $(MFLAGS) distclean)
  1680.       (cd oldXMenu; $(MAKE) $(MFLAGS) distclean)
  1681. Binary files ./site-lisp/gnuserv.elc and ../emacs-19.34/./site-lisp/gnuserv.elc differ
  1682. *** ./site-lisp/gnuserv.el    Thu May 21 11:32:03 1998
  1683. --- ../emacs-19.34/./site-lisp/gnuserv.el    Fri May 15 10:37:38 1998
  1684. ***************
  1685. *** 0 ****
  1686. --- 1,366 ----
  1687. + ; Lisp Interface code between GNU Emacs and gnuserv.
  1688. + ;
  1689. + ; This file is part of GNU Emacs.
  1690. + ;
  1691. + ; Copying is permitted under those conditions described by the GNU
  1692. + ; General Public License.
  1693. + ;
  1694. + ; Copyright (C) 1989 Free Software Foundation, Inc.
  1695. + ;
  1696. + ; Author: Andy Norman (ange@hplb.hpl.hp.com) based on
  1697. + ;         'lisp/server.el' from the 18.52 GNU Emacs distribution.
  1698. + ;
  1699. + ; Please mail bugs and suggestions to the author at the above address.
  1700. + 
  1701. + 
  1702. + (defconst gnuserv-rcs-header-id "$Header: /usr/xtmp/khera/emacs-19.12/site-lisp/gnuserv.el,v 1.3 1993/06/03 15:11:00 khera Exp $")
  1703. + 
  1704. + (provide 'gnuserv)
  1705. + 
  1706. + (defvar server-program (concat exec-directory "gnuserv")
  1707. +   "*The program to use as the edit server")
  1708. + 
  1709. + (defvar server-process nil 
  1710. +   "the current server process")
  1711. + 
  1712. + (defvar server-string ""
  1713. +   "the last input string from the server")
  1714. + 
  1715. + (defvar current-client nil
  1716. +   "the client we are currently talking to")
  1717. + 
  1718. + (defvar server-clients nil
  1719. +   "List of current server clients.
  1720. + Each element is (CLIENTID BUFFER...) where CLIENTID is an integer
  1721. + that can be given to the server process to identify a client.
  1722. + When a buffer is killed, it is removed from this list.")
  1723. + 
  1724. + (defvar server-buffer-clients nil
  1725. +   "List of clientids for clients requesting editing of current buffer.")
  1726. + 
  1727. + (make-variable-buffer-local 'server-buffer-clients)
  1728. + (setq-default server-buffer-clients nil)
  1729. + (or (assq 'server-buffer-clients minor-mode-alist)
  1730. +     (setq minor-mode-alist (cons '(server-buffer-clients " Server") minor-mode-alist)))
  1731. + 
  1732. + (defun server-log (string)
  1733. +   "If a *server* buffer exists, write STRING to it for logging purposes."
  1734. +   (if (get-buffer "*server*")
  1735. +       (save-excursion
  1736. +     (set-buffer "*server*")
  1737. +     (goto-char (point-max))
  1738. +     (insert string)
  1739. +     (or (bolp) (newline)))))
  1740. + 
  1741. + 
  1742. + (defun server-sentinel (proc msg)
  1743. +   (cond ((eq (process-status proc) 'exit)
  1744. +      (server-log (message "Server subprocess exited")))
  1745. +     ((eq (process-status proc) 'signal)
  1746. +      (server-log (message "Server subprocess killed")))))
  1747. + 
  1748. + 
  1749. + (defun server-process-display-error (string)
  1750. +   "When an error has been reported from the server, display the error in a
  1751. + pop-up window."
  1752. +   (let ((cur (selected-window))
  1753. +     (pop-up-windows t))
  1754. +     (pop-to-buffer (get-buffer-create "*server*"))
  1755. +     (set-window-start (selected-window) (point))
  1756. +     (server-log string)
  1757. +     (select-window cur)))
  1758. +     
  1759. + 
  1760. + (defun server-process-filter (proc string)
  1761. +   "Process incoming requests from the server for GNU Emacs to do some actions."
  1762. +   (setq server-string (concat server-string string))
  1763. +   (if (string-match "\n$" server-string) ;wait till request ends with a newline
  1764. +       (if (string-match "^[0-9]+" server-string) ;client request id
  1765. +     (progn
  1766. +       (server-log server-string)
  1767. +       (let ((header (read-from-string server-string)))
  1768. +         (setq current-client (car header))
  1769. +         (condition-case oops
  1770. +         (eval (car (read-from-string server-string (cdr header))))
  1771. +           (error (setq server-string "")
  1772. +              (server-write-to-client current-client oops)
  1773. +              (setq current-client nil)
  1774. +              (signal (car oops) (cdr oops)))
  1775. +           (quit (setq server-string "")
  1776. +             (server-write-to-client current-client oops)
  1777. +             (setq current-client nil)
  1778. +             (signal 'quit nil)))
  1779. +         (setq server-string "")))
  1780. +     (progn                ;error string from server
  1781. +       (server-process-display-error server-string)
  1782. +       (setq server-string "")))))
  1783. + 
  1784. + 
  1785. + (defun server-release-outstanding-buffers ()
  1786. +   "Release all buffers that have clients waiting for them to be finished."
  1787. +   (interactive)
  1788. +   (while server-clients
  1789. +     (let ((buffer (nth 1 (car server-clients)))) ;need to do this for all buffers
  1790. +       (server-buffer-done buffer))))    ; destructively modifies server-clients
  1791. + 
  1792. + 
  1793. + (defun server-start (&optional leave-dead)
  1794. +   "Allow this Emacs process to be a server for client processes.
  1795. + This starts a server communications subprocess through which
  1796. + client \"editors\" can send editing commands to this Emacs job.
  1797. + 
  1798. + Prefix arg means just kill any existing server communications subprocess."
  1799. +   (interactive "P")
  1800. +   ;; kill it dead!
  1801. +   (if server-process
  1802. +       (progn
  1803. +     (server-release-outstanding-buffers)
  1804. +     (set-process-sentinel server-process nil)
  1805. +     (condition-case ()
  1806. +         (delete-process server-process)
  1807. +       (error nil))))
  1808. +   ;; If we already had a server, clear out associated status.
  1809. +   (if leave-dead
  1810. +       nil
  1811. +     (if server-process
  1812. +     (server-log (message "Restarting server")))
  1813. +     (setq server-string "")
  1814. +     (setq current-client nil)
  1815. +     (let ((process-connection-type t))
  1816. +       (setq server-process (start-process "server" nil server-program)))
  1817. +     (set-process-sentinel server-process 'server-sentinel)
  1818. +     (set-process-filter server-process 'server-process-filter)
  1819. +     (process-kill-without-query server-process)))
  1820. + 
  1821. + 
  1822. + (defun server-write-to-client (client form)
  1823. +   "Write the given form to the given client via the server process."
  1824. +   (if (and client
  1825. +        (eq (process-status server-process) 'run))
  1826. +       (let ((s (format "%s:%s\n" client form)))
  1827. +     (send-string server-process s)
  1828. +     (server-log s))))
  1829. + 
  1830. + 
  1831. + (defun server-eval (form)
  1832. +   "Evaluate form and return result to client."
  1833. +   (server-write-to-client current-client (eval form))
  1834. +   (setq current-client nil))
  1835. + 
  1836. + 
  1837. + (defun server-eval-quickly (form)
  1838. +   "Let client know that we've received the request, but eval the form
  1839. + afterwards in order to not keep the client waiting."
  1840. +   (server-write-to-client current-client nil)
  1841. +   (setq current-client nil)
  1842. +   (eval form))
  1843. + 
  1844. + 
  1845. + (defun server-make-window-visible ()
  1846. +   "Try to make the window visible."
  1847. +   (make-frame-visible))
  1848. + 
  1849. + 
  1850. + (defun server-find-file (file)
  1851. +   "Edit file FILENAME.
  1852. + Switch to a buffer visiting file FILENAME,
  1853. + creating one if none already exists."
  1854. +   (let ((obuf (get-file-buffer file)))
  1855. +     (if (and obuf (set-buffer obuf))
  1856. +     (if (file-exists-p file)
  1857. +         (if (or (not (verify-visited-file-modtime obuf))
  1858. +             (buffer-modified-p obuf))
  1859. +         (revert-buffer t nil))
  1860. +       (if (y-or-n-p
  1861. +            (concat "File no longer exists: "
  1862. +                file
  1863. +                ", write buffer to file? "))
  1864. +           (write-file file)))
  1865. +       (set-buffer (find-file-noselect file))))
  1866. +   (switch-to-buffer (current-buffer)))
  1867. + 
  1868. + 
  1869. + (defun server-edit-files-quickly (l)
  1870. +   "For each (lineno . file) pair in the given list, edit the file and goto the
  1871. + given line number. Note that unlike server-edit-files, no information is saved
  1872. + about clients waiting for this buffer to be killed."
  1873. +   (server-write-to-client current-client nil)
  1874. +   (setq current-client nil)
  1875. +   (server-make-window-visible)
  1876. +   (while l
  1877. +     (let ((line (car (car l)))
  1878. +       (path (cdr (car l))))
  1879. +       (server-find-file path)
  1880. +       (goto-line line))
  1881. +     (setq l (cdr l))))
  1882. + 
  1883. + 
  1884. + (defun server-edit-files (l)
  1885. +   "For each (lineno . file) pair in the given list, edit the given file for the
  1886. + client and save enough information such that server-kill-buffer can let the client
  1887. + know when the buffer has been finished with."
  1888. +   (server-make-window-visible)
  1889. +   (while l
  1890. +     (let ((line (car (car l)))
  1891. +       (path (cdr (car l))))
  1892. +       (server-find-file path)
  1893. +       (let ((old-clients (assq current-client server-clients))
  1894. +         (buffer (current-buffer)))
  1895. +     (goto-line line)
  1896. +     (setq server-buffer-clients
  1897. +           (cons current-client server-buffer-clients))
  1898. +     (if old-clients            ;client already waiting for buffers?
  1899. +         (nconc old-clients (list buffer)) ;yes -- append this one as well
  1900. +       (setq server-clients        ;nope -- make a new record
  1901. +         (cons (list current-client buffer)
  1902. +               server-clients)))))
  1903. +       (setq l (cdr l)))
  1904. +   (message (substitute-command-keys
  1905. +         "When done with a buffer, type \\[server-edit].")))
  1906. + 
  1907. + 
  1908. + (defun server-get-buffer (buffer)
  1909. +   "One arg, a string or a buffer. Return either a buffer object or
  1910. + throw an error if the buffer named was not a buffer."
  1911. +   (if (null buffer)
  1912. +       (current-buffer)
  1913. +     (let ((buf (get-buffer buffer)))
  1914. +       (if (null buf)
  1915. +       (if (stringp buffer)
  1916. +           (error "No buffer named %s" buffer)
  1917. +         (error "Invalid buffer argument"))
  1918. +     buf))))
  1919. + 
  1920. + 
  1921. + (defun server-kill-buffer (buffer)
  1922. +   "One arg, a string or a buffer.  Get rid of the specified buffer.
  1923. + NOTE: This function has been enhanced to allow for remote editing
  1924. + in the following way:
  1925. + 
  1926. + If the buffer is waited upon by one or more clients, and a client is
  1927. + not waiting for other buffers to be killed, then the client is told
  1928. + that the buffer has been killed."
  1929. +   (interactive "bKill buffer ")
  1930. +   (setq buffer (server-get-buffer buffer))
  1931. +   (if (buffer-name buffer)
  1932. +       (save-excursion
  1933. +     (set-buffer buffer)
  1934. +     (let ((old-clients server-clients))
  1935. +       (server-real-kill-buffer buffer) ;try to kill it
  1936. +       (if (buffer-name buffer)    ;succeeded in killing?
  1937. +           nil            ;nope
  1938. +         (while old-clients
  1939. +           (let ((client (car old-clients)))
  1940. +         (delq buffer client)
  1941. +         (if (cdr client)    ;pending buffers?
  1942. +             nil            ;yep
  1943. +           (server-write-to-client (car client) nil) ;nope, tell client
  1944. +           (setq server-clients (delq client server-clients))))
  1945. +           (setq old-clients (cdr old-clients))))))))
  1946. + 
  1947. + 
  1948. + (defun server-kill-all-local-variables ()
  1949. +   "Eliminate all the buffer-local variable values of the current buffer.
  1950. + This buffer will then see the default values of all variables.
  1951. + NOTE: This function has been modified to ignore the variable 
  1952. + server-buffer-clients."
  1953. +   (let ((clients server-buffer-clients))
  1954. +     (server-real-kill-all-local-variables)
  1955. +     (if clients
  1956. +     (setq server-buffer-clients clients))))
  1957. + 
  1958. + 
  1959. + (or (fboundp 'server-real-kill-buffer)
  1960. +   (fset 'server-real-kill-buffer (symbol-function 'kill-buffer)))
  1961. + 
  1962. + (fset 'kill-buffer 'server-kill-buffer)
  1963. + 
  1964. + (or (fboundp 'server-real-kill-all-local-variables)
  1965. +     (fset 'server-real-kill-all-local-variables
  1966. +       (symbol-function 'kill-all-local-variables)))
  1967. + 
  1968. + (fset 'kill-all-local-variables 'server-kill-all-local-variables)
  1969. + 
  1970. + 
  1971. + (defun server-buffer-done (buffer)
  1972. +   "Mark BUFFER as \"done\" for its client(s).
  1973. + Buries the buffer, and returns another server buffer
  1974. + as a suggestion for what to select next."
  1975. +   (let ((next-buffer nil)
  1976. +     (old-clients server-clients))
  1977. +     (while old-clients
  1978. +       (let ((client (car old-clients)))
  1979. +     (or next-buffer 
  1980. +         (setq next-buffer (nth 1 (memq buffer client))))
  1981. +     (delq buffer client)
  1982. +     ;; If client now has no pending buffers,
  1983. +     ;; tell it that it is done, and forget it entirely.
  1984. +     (if (cdr client)
  1985. +         nil
  1986. +       (server-write-to-client (car client) nil)
  1987. +       (setq server-clients (delq client server-clients))))
  1988. +       (setq old-clients (cdr old-clients)))
  1989. +     (if (buffer-name buffer)
  1990. +     (save-excursion
  1991. +       (set-buffer buffer)
  1992. +       (setq server-buffer-clients nil)))
  1993. +     (bury-buffer buffer)
  1994. +     next-buffer))
  1995. + 
  1996. + 
  1997. + (defun mh-draft-p (buffer)
  1998. +   "Return non-nil if this BUFFER is an mh <draft> file.
  1999. + Since MH deletes draft *BEFORE* it is edited, the server treats them specially."
  2000. +  ;; This may not be appropriately robust for all cases.
  2001. +   (string= (buffer-name buffer) "draft"))
  2002. + 
  2003. + 
  2004. + (defun server-done ()
  2005. +   "Offer to save current buffer, mark it as \"done\" for clients,
  2006. + bury it, and return a suggested buffer to select next."
  2007. +   (let ((buffer (current-buffer)))
  2008. +     (if server-buffer-clients
  2009. +     (progn
  2010. +        (if (mh-draft-p buffer)
  2011. +            (progn (save-buffer)
  2012. +              (write-region (point-min) (point-max)
  2013. +                    (concat buffer-file-name "~"))
  2014. +              (kill-buffer buffer))
  2015. +         (if (and (buffer-modified-p)
  2016. +              (y-or-n-p (concat "Save file " buffer-file-name "? ")))
  2017. +         (save-buffer buffer)))
  2018. +       (server-buffer-done buffer)))))
  2019. + 
  2020. + 
  2021. + (defun server-edit (&optional arg)
  2022. +   "Switch to next server editing buffer; say \"Done\" for current buffer.
  2023. + If a server buffer is current, it is marked \"done\" and optionally saved.
  2024. + MH <draft> files are always saved and backed up, no questions asked.
  2025. + When all of a client's buffers are marked as \"done\", the client is notified.
  2026. + 
  2027. + If invoked with a prefix argument, or if there is no server process running, 
  2028. + starts server process and that is all.  Invoked by \\[server-edit]."
  2029. +   (interactive "P")
  2030. +   (if (or arg
  2031. +       (not server-process)
  2032. +       (memq (process-status server-process) '(signal exit)))
  2033. +       (server-start nil)
  2034. +     (server-switch-buffer (server-done))))
  2035. + 
  2036. + (defun server-switch-buffer (next-buffer)
  2037. +   "Switch to another buffer, preferably one that has a client.
  2038. + Arg NEXT-BUFFER is a suggestion; if it is a live buffer, use it."
  2039. +   (if next-buffer
  2040. +       (if (and (bufferp next-buffer)
  2041. +            (buffer-name next-buffer))
  2042. +       (switch-to-buffer next-buffer)
  2043. +     ;; If NEXT-BUFFER is a dead buffer,
  2044. +     ;; remove the server records for it
  2045. +     ;; and try the next surviving server buffer.
  2046. +     (server-switch-buffer
  2047. +      (server-buffer-done next-buffer)))
  2048. +     (if server-clients
  2049. +     (server-switch-buffer (nth 1 (car server-clients)))
  2050. +       (switch-to-buffer (other-buffer)))))
  2051. + 
  2052. + (global-set-key "\C-x#" 'server-edit)
  2053. *** ./configure    Tue Aug 20 00:11:26 1996
  2054. --- ../emacs-19.34/./configure    Thu May 21 11:43:36 1998
  2055. ***************
  2056. *** 1219,1224 ****
  2057. --- 1219,1236 ----
  2058.     mips-sgi-irix4* )
  2059.       machine=iris4d opsys=irix4-0
  2060.     ;;
  2061. +   mips-sgi-irix6.4 | mips-sgi-irix6.5 )
  2062. +     machine=iris4d opsys=irix6-4
  2063. +     NON_GNU_CPP='cc -E'
  2064. +     CPP=/lib/cpp
  2065. +     _ABIN32=1
  2066. +   ;;
  2067. +   mips-sgi-irix6.x )
  2068. +     machine=iris4d opsys=irix6-x
  2069. +     NON_GNU_CPP='cc -E'
  2070. +     CPP=/lib/cpp
  2071. +     _ABIN32=1
  2072. +   ;;
  2073.     mips-sgi-irix6* )
  2074.       machine=iris4d opsys=irix6-0
  2075.       NON_GNU_CPP=/lib/cpp
  2076. ***************
  2077. *** 3641,3647 ****
  2078.       builtin and then its argument prototype would still apply.  */
  2079.   char $ac_func();
  2080.   
  2081. ! int main() { return 0; }
  2082.   int t() {
  2083.   
  2084.   /* The GNU C library defines this for functions which it implements
  2085. --- 3653,3659 ----
  2086.       builtin and then its argument prototype would still apply.  */
  2087.   char $ac_func();
  2088.   
  2089. ! int main() { return t(); }
  2090.   int t() {
  2091.   
  2092.   /* The GNU C library defines this for functions which it implements
  2093.